home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / ADSPSecure.lisp next >
Encoding:
Text File  |  1994-09-12  |  5.2 KB  |  151 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Sunday, February 7, 1993 at 4:54PM
  5. ;  ADSPSecure.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;     ••• Apple Confidential •••
  9. ;     ••• Provided with AOCE Beta seed under license agreement with   •••
  10. ;     ••• Apple Computer, Inc.  Use for any purpose other than        •••
  11. ;     ••• development of AOCE-based Macintosh products is a violation •••
  12. ;     ••• of the license agreement.                                   •••
  13. ; 
  14. ;   Copyright Apple Computer, Inc. 1990-1993
  15. ;   All rights reserved
  16. ; 
  17. ; ***********************************************************
  18.  
  19. ; $IFC UNDEFINED UsingIncludes
  20. ; $SETC UsingIncludes:= 0
  21. ; $ENDC
  22.  
  23. ; $IFC NOT UsingIncludes
  24.  
  25. ; $ENDC
  26.  
  27. ; $IFC UNDEFINED UsingADSPSecure
  28. ; $SETC UsingADSPSecure:= 1
  29.  
  30. ; $I+
  31. ; $SETC ADSPSecureIncludes:= UsingIncludes
  32. ; $SETC UsingIncludes:= 1
  33.  
  34. ; $IFC UNDEFINED UsingADSP
  35.  
  36. (require-interface 'ADSP)       ; $I $$Shell(PInterfaces)ADSP.p
  37. ; $ENDC
  38.  
  39. ; $IFC UNDEFINED UsingFiles
  40.  
  41. (require-interface 'FILES)      ; $I $$Shell(PInterfaces)Files.p
  42. ; $ENDC
  43.  
  44. ; $IFC UNDEFINED UsingOCE
  45. ; $I OCE.p
  46. ; $ENDC
  47.  
  48. ; $IFC UNDEFINED UsingOCEAuthDir
  49. ; $I OCEAuthDir.p
  50. ; $ENDC
  51.  
  52. ; $IFC UNDEFINED UsingTypes
  53.  
  54. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  55. ; $ENDC
  56.  
  57. ; $SETC UsingIncludes:= ADSPSecureIncludes
  58.  
  59. ;  New ADSP control codes 
  60.  
  61. (defconstant $sdspOpen 229)     ;  open a secure connection 
  62.  
  63. ; 
  64. ; For secure connections, the eom field of ioParams contains two single-bit flags
  65. ; (instead of a zero/non-zero byte). They are an encrypt flag (see below), and an
  66. ; eom flag.  All other bits in that field should be zero.
  67. ; 
  68. ; To write an encrypted message, you must set an encrypt bit in the eom field of
  69. ; the ioParams of your write call. Note: this flag is only checked on the first
  70. ; write of a message (the first write on a connection, or the first write following
  71. ; a write with eom set.
  72. ; 
  73.  
  74. (defconstant $dspEOMBit 0)      ;  set if EOM at end of write 
  75. (defconstant $dspEncryptBit 1)  ;  set to encrypt message 
  76.  
  77. (defconstant $dspEOMMask #X1)   ; 1<<dspEOMBit
  78. (defconstant $dspEncryptMask #X2); 1<<dspEncryptBit
  79.  
  80. ; 
  81. ; Define an ADSPSecure parameter block, as used for the secure Open call.
  82. ; 
  83.  
  84. (defconstant $sdspWorkSize 2048);  size of ADSPSecure workspace 
  85.  
  86. (defrecord TRSecureParams 
  87.    (localCID :SIGNED-INTEGER)   ;  local connection id 
  88.    (remoteCID :SIGNED-INTEGER)  ;  remote connection id 
  89.    (remoteAddress :ADDRBLOCK)   ;  address of remote end 
  90.    (filterAddress :ADDRBLOCK)   ;  address filter 
  91.    (sendSeq :SIGNED-LONG)       ;  local send sequence number 
  92.    (sendWindow :SIGNED-INTEGER) ;  send window size 
  93.    (recvSeq :SIGNED-LONG)       ;  receive sequence number 
  94.    (attnSendSeq :SIGNED-LONG)   ;  attention send sequence number 
  95.    (attnRecvSeq :SIGNED-LONG)   ;  attention receive sequence number 
  96.    (ocMode :UNSIGNED-BYTE)      ;  open connection mode 
  97.    (ocInterval :UNSIGNED-BYTE)  ;  open connection request retry interval 
  98.    (ocMaximum :UNSIGNED-BYTE)   ;  open connection request retry maximum 
  99.  
  100. ; ERROR!! Record field SECURE declared PACKED BOOLEAN !
  101.    (secure :BOOLEAN)            ;   --> TRUE if session was authenticated 
  102.    (sessionKey (:POINTER :AUTHKEY));  <--> encryption key for session 
  103.    (credentialsSize :SIGNED-LONG);   --> length of credentials 
  104.    (credentials :POINTER)       ;   --> pointer to credentials 
  105.    (workspace :POINTER)         ;   --> pointer to workspace for connection 
  106. ;  align on even boundary and length = sdspWorkSize 
  107.    (recipient :SIGNED-LONG)     ;   --> identity of recipient (or initiator if active mode 
  108.    (issueTime :SIGNED-LONG)     ;   --> when credentials were issued 
  109.    (expiry :SIGNED-LONG)        ;   --> when credentials expiry 
  110.    (initiator (:POINTER :RECORDID));  <--  RecordID of initiator returned here.
  111. ;                                             Must give appropriate Buffer to hold RecordID
  112. ;                                             (Only for passive or accept mode) 
  113.  
  114. ; ERROR!! Record field HASINTERMEDIARY declared PACKED BOOLEAN !
  115.    (hasIntermediary :BOOLEAN)   ;  <--  will be set if credentials has an intermediary 
  116.    (intermediary (:POINTER :RECORDID));  <--  RecordID of intermediary returned here.
  117. ;                                             (If intermediary is found in credentials
  118. ;                                             Must give appropriate Buffer to hold RecordID
  119. ;                                             (Only for passive or accept mode) 
  120.    )
  121.  
  122. (defrecord SDSPParamBlock 
  123.    (:variant 
  124.       ((DSPParamBlock :DSPPARAMBLOCK))
  125.       ((qLink (:POINTER :QELEM))
  126.       (qType :SIGNED-INTEGER)
  127.       (ioTrap :SIGNED-INTEGER)
  128.       (ioCmdAddr :POINTER)
  129.       (ioCompletion :POINTER)
  130.       (ioResult :SIGNED-INTEGER)
  131.       (ioNamePtr (:POINTER (:STRING 255)))
  132.       (ioVRefNum :SIGNED-INTEGER)
  133.       (ioCRefNum :SIGNED-INTEGER);  adsp driver refNum 
  134.       (csCode :SIGNED-INTEGER)  ;  adsp driver control code 
  135.       (qStatus :SIGNED-LONG)    ;  adsp internal use 
  136.       (ccbRefNum :SIGNED-INTEGER);  connection end refNum 
  137.       (secureParams :TRSECUREPARAMS);  dspOpenSecure 
  138.       )
  139.       ))
  140.  
  141. (def-mactype :SDSPPBPTR (find-mactype :POINTER))
  142.  
  143. ; $ENDC                         ;  UsingADSPSecure 
  144.  
  145. ; $IFC NOT UsingIncludes
  146.  
  147. ; $ENDC
  148.  
  149. (export '($SDSPWORKSIZE $DSPENCRYPTMASK $DSPEOMMASK $DSPENCRYPTBIT $DSPEOMBIT
  150.           $SDSPOPEN))
  151. (provide-interface 'ADSPSecure)